home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / SUBmods / EasyRequest / test.b < prev   
Text File  |  1996-09-11  |  1KB  |  36 lines
  1. {*
  2. ** A test of EasyRequest SUBmod.
  3. ** By Nils Sjoholm. Modified by David Benn, July 1995, September 1996
  4. *}
  5.  
  6. #include <SUBmods/EasyRequest.h>
  7.  
  8. {* Variables *}
  9. LONGINT retval
  10. STRING bodystring SIZE 200
  11. STRING gadtext SIZE 30
  12.  
  13. {* Main *}
  14. retval = EasyRequest("This is my title","Requesterstring","Continue")
  15.  
  16. bodystring = "This is the first line" + CHR$(10) + ~
  17.              "And this is the second line" + CHR$(10) + ~
  18.              "Yet another line" + CHR$(10) + ~
  19.              "And the final line"
  20.  
  21. gadtext = "Fine|So?|How Nice|Or?"
  22.  
  23. retval = EasyRequest("Simple test of EasyRequest",bodystring,gadtext)
  24.  
  25. CASE
  26.     retval = 0 : retval = EasyRequest("Another test","You cancelled, or?","OK")
  27.  
  28.     retval = 1 : retval = EasyRequest("Thank you","Glad you liked it","OK")
  29.  
  30.     retval = 2 : retval = EasyRequest("So what","I don't care."+ CHR$(10) + ~
  31.                       "You dont have to use it","OK")
  32.  
  33.     retval = 3 : retval = EasyRequest("Hmmmm How nice","Yes I like it too.", ~
  34.                       "Continue")
  35. END CASE
  36.